home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 6 / 01 / mini-compiler / mini.ampk / Mini-Compiler / Demo / Demo.m < prev    next >
Encoding:
Text File  |  1995-06-01  |  575 b   |  31 lines
  1. Program Demo;
  2. Type T_Array = Array [10] Of Integer;
  3.  
  4. Procedure Test;
  5. Begin
  6.  Writeln('Dies ist eine kleine Demo für den Mini-Compiler')
  7. End;
  8.  
  9. Procedure ASCII;
  10. Var C : Char;
  11.  
  12. Begin
  13.  For c:='a' to 'z' Do
  14.    Writeln(C,'  ',Ord(C),' ',Upcase(c),' ',Ord(Upcase(c)))
  15. End;
  16.  
  17. Procedure Fehler;
  18. Begin
  19.  Writeln('Division durch 0',1/0)
  20. End;
  21.  
  22. Begin
  23.  Writeln('Dies ist eine kleine Demo zum finden von Laufzeitfehlern');
  24.  Writeln('Dieses Programm erzeugt einen Fehler. Die Stelle im Text');
  25.  Writeln('findet sich mit "Laufzeitfehler suchen" in der Oberfläche');
  26.  Test;
  27.  ASCII;
  28.  Fehler
  29. End.
  30.  
  31.